home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
RISCBBS
/
!RiscBBS
/
System
/
Kernel
/
Defaults
next >
Wrap
Text File
|
1992-02-24
|
457b
|
20 lines
{
defopt M= `Main Menu` 10 ``
base S Main
endopt
defopt != `Goodbye` 10 ``
pushmenu
menu Logoff
endopt
defopt @= `Time travel` 10 ``
eoln fg 3 send `Travel back howmany days? : ` fg 1 read V1 3 if "V1"="" send `0` endif
eoln fg 3 send `Travel back howmany hours? : ` fg 1 read V2 3 if "V2"="" send `0` endif
eval V0 "V1,V2" u_travel V0
eoln fg 2 send `Whoooosh... It is now ` fg 6 _lastcl eoln
endopt
defopt ¤ 10 `` endopt
}